home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ReadUsenetBin.zprx < prev    next >
Text File  |  1995-03-09  |  620b  |  30 lines
  1. /*
  2.     ReadUsenetBin.zprx 1.0 (18.8.94) Copyright (c) Ralph Seichter
  3.  
  4.     Speichert die aktuelle Nachricht, uudekodiert die darin enthaltene
  5.     Datei 'binaer.zer' und zeigt sie via MultiView auf dem ZP-Screen.
  6. */
  7.  
  8. PARSE ARG zp
  9. zp = COMPRESS(zp)
  10. IF (zp = '') THEN
  11.     zp = 'ZPoint'
  12.  
  13. OPTIONS RESULTS
  14. ADDRESS VALUE zp
  15.  
  16. src = 'T:r-u-bin.zp'
  17. dst = 'T:binaer.zer'
  18. savemessagebody src
  19. IF (~RC) THEN DO
  20.     requestnotify 'Kann ' || src || ' nicht schreiben!'
  21.     EXIT
  22. END
  23.  
  24. ADDRESS COMMAND
  25. 'uudecode ' || src || ' PATH T:'
  26. 'SYS:Utilities/MultiView ' || dst || ' PUBSCREEN ' || zp
  27. 'delete quiet ' || src || ' ' || dst
  28.  
  29. /* EOF */
  30.